home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Czarina.dxr / Internal_5_reserve cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.8 KB  |  96 lines
  1. property row, spriteNum, myLoc
  2. global reserve, stock, mover, equal, currentsel, godlist, points
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   myLoc = sprite(spriteNum).loc
  7.   reserve.addProp(row, new(script("card pile")))
  8.   sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  9.   stock.cards.deleteAt(1)
  10.   reserve[row].addCard(spriteNum)
  11. end
  12.  
  13. on determinerow me
  14.   if spriteNum = 20 then
  15.     return #one
  16.   else
  17.     if spriteNum = 24 then
  18.       return #two
  19.     else
  20.       if spriteNum = 23 then
  21.         return #three
  22.       else
  23.         if spriteNum = 22 then
  24.           return #four
  25.         else
  26.           if spriteNum = 21 then
  27.             return #five
  28.           end if
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33. end
  34.  
  35. on mouseDown me
  36.   if reserve[row].cards.count > 0 then
  37.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  38.     sprite(spriteNum).locZ = spriteNum + 2000
  39.     mover = timeout("Het").new(1, #moveme, me)
  40.     if reserve[row].getcardcount() > 1 then
  41.       sprite(15).member = member(reserve[row].cards[reserve[row].getcardcount() - 1].membername, "playing cards")
  42.       sprite(15).loc = sprite(spriteNum).loc
  43.     else
  44.       sprite(15).member = member("empty", "playing cards")
  45.     end if
  46.   end if
  47. end
  48.  
  49. on moveme me
  50.   sprite(spriteNum).loc = the mouseLoc
  51.   if the stillDown = 0 then
  52.     mover.forget()
  53.     sprite(spriteNum).loc = myLoc
  54.     sprite(spriteNum).locZ = spriteNum
  55.   end if
  56. end
  57.  
  58. on mouseUp me
  59.   if reserve[row].getcardcount() > 0 then
  60.     if equal then
  61.       puppetSound(3, member("pick card", "100GPak Generic SFX"))
  62.       sprite(spriteNum).loc = reserve[row].getlastcard().location
  63.       sprite(spriteNum).locZ = spriteNum
  64.       sprite(currentsel).member = sprite(spriteNum).member
  65.       godlist.addCard(currentsel)
  66.       reserve[row].cards.deleteAt(reserve[row].getcardcount())
  67.       if reserve[row].getcardcount() > 0 then
  68.         sprite(spriteNum).member = member(reserve[row].getlastcard().membername, "playing cards")
  69.       else
  70.         if stock.cards.count > 0 then
  71.           sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  72.           stock.cards.deleteAt(1)
  73.           reserve[row].addCard(spriteNum)
  74.           if stock.cards.count = 0 then
  75.             sprite(40).member = member("empty", "playing cards")
  76.           end if
  77.         else
  78.           sprite(spriteNum).member = member("empty", "playing cards")
  79.         end if
  80.       end if
  81.       if (currentsel >= 25) and (currentsel <= 28) then
  82.         points = points + 10
  83.         checkwin()
  84.       end if
  85.       checkwin()
  86.       equal = 0
  87.       currentsel = 0
  88.       godlist = VOID
  89.     else
  90.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  91.       sprite(spriteNum).loc = reserve[row].getlastcard().location
  92.       sprite(spriteNum).locZ = spriteNum
  93.     end if
  94.   end if
  95. end
  96.